rouge = "#ce1126"
width = 7.3 # = 139mm
height = 3 # = 48mm
size_text = 10
titre3 <- ggplot() +
geom_blank() +
ylim(0,10) +
xlim(-1,1) +
geom_text(aes(x = 0, y = 9.25 , label = "Couples"), color = "white",
size = 4, angle = 0, hjust = 0.5, vjust = 0, family = "Montserrat", fontface = 2) +
geom_text(aes(x = 0, y = 7, label = "Histoires\nd'un soir"), color = "white",
size = 4, angle = 0, hjust = 0.5, vjust = 0, family = "Montserrat", fontface = 2) +
geom_text(aes(x = 0, y = 4.8, label = "Relations\nsuivies"), color = "white",
size = 4, angle = 0, hjust = 0.5, vjust = 0, family = "Montserrat", fontface = 2) +
geom_text(aes(x = 0, y = 2.5, label = "Relations\ndésirées"), color = "white",
size = 4, angle = 0, hjust = 0.5, vjust = 0, family = "Montserrat", fontface = 2) +
theme_void() +
theme(panel.background = element_rect(fill = rouge,
colour = rouge,
size = 0.5, linetype = "solid"))
titre3
p = ggplot(dt, aes(x = Genre, y = Valeurs)) +
geom_bar_pattern(
aes(fill = Attirance,
pattern_fill = Attirance,
pattern_angle = Attirance
),
stat = "identity",
colour = "black",
pattern_size = NA,
#pattern_spacing = 0.03,
pattern_density = 0.25,
width = 0.5,
linewidth = 0.25
) +
geom_text(
aes(label = value2,
color = Attirance),
size = 3,
position = position_stack(vjust = 0.5),
family = "Montserrat"
) +
facet_grid(Relation ~ ., scales = "free_y", space = "free_y") +
coord_flip() +
scale_color_manual(values = c("white","black","black","white")) +
scale_pattern_angle_manual(values =c(0,45,135,0),
guide = guide_legend(reverse = TRUE)) +
scale_fill_manual(values = rev(c(rouge,rouge,"black","black")),
guide = guide_legend(reverse = TRUE)) +
scale_pattern_fill_manual(values = rev(c(rouge,"white","white","black")),
guide = guide_legend(reverse = TRUE))+
scale_y_continuous(limits = c(0,100), breaks = seq(0,100,20),
labels = paste0(seq(0,100,20),"%")) +
theme_minimal() +
theme(
strip.text.y = element_blank(),
axis.ticks.y = element_blank(),
#axis.text.x = element_blank(),
axis.ticks.x = element_blank(),
panel.grid.minor.y=element_blank(),
panel.grid.major.y=element_blank(),
panel.grid.minor.x=element_blank(),
panel.grid.major.x=element_line(color = "lightgrey",linewidth = 0.5,linetype = "dotted"),
legend.position = "bottom",
axis.text = element_text(size = 10, family = "Montserrat"),
legend.text = element_text(size = 10, family = "Montserrat"),
legend.title=element_blank(),
legend.key.size = unit(0.5, 'cm')
) +
labs(x = "",y = "") +
guides(
pattern_angle = "none",
color = "none",
fill = "none",
pattern_fill = guide_legend(
reverse = TRUE,
nrow = 2,
override.aes = list(
pattern_spacing = 0.01,
pattern_density = 0.3,
fill = c(rouge,rouge,"black","black"),
pattern_fill = c(rouge,"white","white","black"),
pattern_angle = rev(c(0,45,135,0))
)))
p
p_rela3 <- grid.arrange(titre3,p,ncol = 2,
widths = c(unit(15, "npc"), unit(85, "npc")))
# VF
svg("images/Fig7_3/p7_3_save.svg", width = width, height = 4)
p_rela3 <- grid.arrange(titre3,p,ncol = 2,
widths = c(unit(15, "npc"), unit(85, "npc")))
dev.off()
